home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The CICA Windows Explosion!
/
The CICA Windows Explosion! - Disc 2.iso
/
winsock
/
ircii2-6.zip
/
SRC\IRCII-2.6\SCRIPT\KPSTAT
< prev
next >
Wrap
Text File
|
1994-12-28
|
1KB
|
57 lines
# This one by Snoopy (hellmond@phoenix.princeton.edu)
#
# Due to the annoying feature [bug] of frequent ServerKills, I updated the
# nkpath script to put serverkills into the status_user variable and to
# display only operkills.
#
# -- Peter
# No Kill Path Script
# ===================
# Original script from YeggMan
# Version for servers 2.7.1* by Nap
# modified for displaying Serverkills in Status_Line by snoopy
# This version works both with old and new 2.7.1e kill formats !
# conversion to 2.2.1 by phone
assign _kpath <empty>
alias kpath echo !LASTKILL! Last received KILL Path: $_kpath
alias _ridx ^assign function_return $RINDEX(! $0)
alias _is_serv ^assign function_return $INDEX(. $MID($_ridx($0) 512 $0))
alias _opkill xecho -level OPNOTES OPERKILL: by $MID($_ridx($1) 9 $1) for $0 $2-
alias _svkill ^set status_user SERVERKILL: $0 ($1)
alias _napEserv {
^assign _kpath $12-
if ( _is_serv($12) > -1 )
{
_svkill $8 $10
}
{
_opkill $8 $10 $13-
}
}
alias _napDserv {
^assign _kpath $10-
if ( _is_serv($10) >- 1)
{
_svkill $8 $10
}
{
_opkill $8 $10 $11-
}
}
on ^server_notice "% * Notice -- Received KILL*" {
echo $0-
if ([$9] == [From])
{
_napEserv $0-
}
{
_napDserv $0-
}
}